﻿Imports Microsoft.VisualBasic
Imports System.Configuration
Imports System.Web.Configuration


Public Class conexao
    Public Function conexao()
        Dim cone As String
        ''cone = String.Format("workstation id=sonicERP.mssql.somee.com;packet size=4096;user id=ROGERIO;pwd=031203BI;data source=sonicERP.mssql.somee.com;persist security info=False;initial catalog=sonicERP")
        'cone = String.Format("Data Source=.\SQLEXPRESS;Initial Catalog=sonicERP;Persist Security Info=True;User ID=sa;Password=1234")
        ''cone = "Data Source=192.168.1.2,1433; Network Library =DBMSSOCN; Initial Catalog =sonicERP; User ID =sa; Password =1234"
        cone = WebConfigurationManager.ConnectionStrings("sonicerp").ConnectionString
        Return cone
    End Function
End Class
